home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / frmbolt3d.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  6.1 KB  |  186 lines
  1. VERSION 5.00
  2. Begin VB.Form frmBolt3D 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "3D Bolts and Screws"
  5.    ClientHeight    =   3825
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6330
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3825
  13.    ScaleWidth      =   6330
  14.    StartUpPosition =   1  'CenterOwner
  15.    Begin VB.OptionButton Surf_Solid 
  16.       Caption         =   "Surface"
  17.       Height          =   255
  18.       Left            =   3000
  19.       TabIndex        =   11
  20.       Top             =   2400
  21.       Width           =   975
  22.    End
  23.    Begin VB.OptionButton Surf_Solid1 
  24.       Caption         =   "Solid"
  25.       Height          =   255
  26.       Left            =   3000
  27.       TabIndex        =   10
  28.       Top             =   2760
  29.       Value           =   -1  'True
  30.       Width           =   855
  31.    End
  32.    Begin VB.CommandButton cmdCancel 
  33.       Caption         =   "Cancel"
  34.       Height          =   375
  35.       Left            =   2880
  36.       TabIndex        =   9
  37.       Top             =   3270
  38.       Width           =   1335
  39.    End
  40.    Begin VB.CommandButton cmdOK 
  41.       Caption         =   "OK"
  42.       Height          =   375
  43.       Left            =   4800
  44.       TabIndex        =   8
  45.       Top             =   3270
  46.       Width           =   1335
  47.    End
  48.    Begin VB.TextBox txtThread 
  49.       Height          =   288
  50.       Left            =   1800
  51.       TabIndex        =   7
  52.       Top             =   3000
  53.       Width           =   735
  54.    End
  55.    Begin VB.ListBox List1 
  56.       Height          =   1620
  57.       ItemData        =   "frmBolt3D.frx":0000
  58.       Left            =   120
  59.       List            =   "frmBolt3D.frx":000D
  60.       TabIndex        =   2
  61.       Top             =   450
  62.       Width           =   2415
  63.    End
  64.    Begin VB.TextBox txtdd 
  65.       Height          =   285
  66.       Left            =   1800
  67.       TabIndex        =   1
  68.       Top             =   2280
  69.       Width           =   735
  70.    End
  71.    Begin VB.TextBox txtLen 
  72.       Height          =   285
  73.       Left            =   1800
  74.       TabIndex        =   0
  75.       Top             =   2640
  76.       Width           =   735
  77.    End
  78.    Begin VB.Frame Frame1 
  79.       Caption         =   "3D"
  80.       Height          =   975
  81.       Left            =   2880
  82.       TabIndex        =   12
  83.       Top             =   2160
  84.       Width           =   1335
  85.    End
  86.    Begin VB.Label Label6 
  87.       Alignment       =   1  'Right Justify
  88.       Caption         =   "Length of thread (Lt) :"
  89.       Height          =   255
  90.       Left            =   120
  91.       TabIndex        =   6
  92.       Top             =   3000
  93.       Width           =   1575
  94.    End
  95.    Begin VB.Label Label7 
  96.       Alignment       =   1  'Right Justify
  97.       Caption         =   "Length (L) :"
  98.       Height          =   255
  99.       Left            =   720
  100.       TabIndex        =   5
  101.       Top             =   2640
  102.       Width           =   975
  103.    End
  104.    Begin VB.Label Label8 
  105.       Alignment       =   1  'Right Justify
  106.       Caption         =   "Diameter (d) :"
  107.       Height          =   255
  108.       Left            =   720
  109.       TabIndex        =   4
  110.       Top             =   2280
  111.       Width           =   975
  112.    End
  113.    Begin VB.Image PicPreview 
  114.       BorderStyle     =   1  'Fixed Single
  115.       Height          =   1950
  116.       Left            =   2880
  117.       Stretch         =   -1  'True
  118.       Top             =   120
  119.       Width           =   3300
  120.    End
  121.    Begin VB.Label Label4 
  122.       Caption         =   "Bolt Type :"
  123.       Height          =   255
  124.       Left            =   120
  125.       TabIndex        =   3
  126.       Top             =   120
  127.       Width           =   975
  128.    End
  129. Attribute VB_Name = "frmBolt3D"
  130. Attribute VB_GlobalNameSpace = False
  131. Attribute VB_Creatable = False
  132. Attribute VB_PredeclaredId = True
  133. Attribute VB_Exposed = False
  134. '/******************************************************************/
  135. '/*                                                                */
  136. '/*                      TurboCAD for Windows                      */
  137. '/*                   Copyright (c) 1993 - 2001                    */
  138. '/*             International Microcomputer Software, Inc.         */
  139. '/*                            (IMSI)                              */
  140. '/*                      All rights reserved.                      */
  141. '/*                                                                */
  142. '/******************************************************************/
  143. ' Storage for read-only property indicating whether
  144. ' or not the dialog box was cancelled. Default is
  145. ' False. Note that the declaration is Private, so
  146. ' that the value cannot be set from the OLE client
  147. ' application. The client reads the value using the
  148. ' DialogCancelled property.
  149. Private blnDialogCanceled As Boolean
  150. ' Read-only property indicating cancellation of the
  151. ' dialog.
  152. Property Get DialogCanceled() As Boolean
  153.     DialogCanceled = blnDialogCanceled
  154. End Property
  155. Private Sub cmdCancel_Click()
  156.     ' Set the value of the read-only property that
  157.     ' tells the caller the dialog was cancelled.
  158.     blnDialogCanceled = True
  159.     Me.Hide
  160. End Sub
  161. Private Sub cmdOK_Click()
  162.     TypeB = List1.Text
  163.     Me.Hide
  164. End Sub
  165. Private Sub Form_Load()
  166. Dim i%, iDef%
  167.     For i = 0 To List1.ListCount - 1
  168.         If List1.List(i) = TypeB Then iDef = i
  169.     Next i
  170.     List1.ListIndex = iDef
  171.     If List1.Text = "HexBolt" Then PicPreview.Picture = LoadResPicture(101, 0)
  172.     If List1.Text = "SlottedBolt" Then PicPreview.Picture = LoadResPicture(102, 0)
  173.     If List1.Text = "HexFlScrew" Then PicPreview.Picture = LoadResPicture(103, 0)
  174. End Sub
  175. Private Sub List1_Click()
  176.     If List1.Text = "HexBolt" Then PicPreview.Picture = LoadResPicture(101, 0)
  177.     If List1.Text = "SlottedBolt" Then PicPreview.Picture = LoadResPicture(102, 0)
  178.     If List1.Text = "HexFlScrew" Then PicPreview.Picture = LoadResPicture(103, 0)
  179. End Sub
  180. Private Sub Surf_Solid_Click()
  181.     Surf_Solid1.Value = False
  182. End Sub
  183. Private Sub Surf_Solid1_Click()
  184.     Surf_Solid.Value = False
  185. End Sub
  186.